home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Logiciels PC 21
/
LogicielsPC_21.iso
/
Creation
/
Exemple LPC21
/
Final
/
Mailing List.psm
< prev
next >
Wrap
Text File
|
2001-08-28
|
53KB
|
2,149 lines
SCRIPT v0.60
GENERAL
Mailing List Sender
Sylvain Seccia
c:\Program Files\Sylvain Seccia\PSM Samples\Mailing List Sender\
Mailing List.bmp
Sylvain Seccia\PSM Samples\Mailing List Sender
0
DIALOGS:2
MAIN:27
SendMail,LoadAddress,LoadMessage,SaveMessage,zzFunc006,zzFunc007,Options,zzFunc008,zzFunc009,zzFunc010,zzFunc011,zzFunc012,zzFunc013,zzFunc014,zzFunc015,zzFunc016,zzFunc017,zzFunc018,zzFunc019,zzFunc020,zzFunc021,zzFunc022,zzFunc023,zzFunc024,zzFunc025,zzFunc026,zzFunc027,zzFunc028,zzFunc029,zzFunc030,zzFunc031,zzFunc032,zzFunc033,zzFunc034,zzFunc035,zzFunc036,zzFunc037,zzFunc038,zzFunc039,zzFunc040,zzFunc041,zzFunc042,zzFunc043,zzFunc044,zzFunc045,zzFunc046,zzFunc047,zzFunc048,zzFunc049,zzFunc050,zzFunc051,zzFunc052,zzFunc053,zzFunc054,zzFunc055,zzFunc056,zzFunc057,zzFunc058,zzFunc059,zzFunc060,zzFunc061,zzFunc062,zzFunc063,zzFunc064,zzFunc065,zzFunc066,zzFunc067,zzFunc068,zzFunc069,zzFunc070,zzFunc071,zzFunc072,zzFunc073,zzFunc074,zzFunc075,zzFunc076,zzFunc077,zzFunc078,zzFunc079,zzFunc080,zzFunc081,zzFunc082,zzFunc083,zzFunc084,zzFunc085,zzFunc086,zzFunc087,zzFunc088,zzFunc089,zzFunc090,zzFunc091,zzFunc092,zzFunc093,zzFunc094,zzFunc095,zzFunc096,zzFunc097,zzFunc098,zzFunc099,zzFunc100,
If
If
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
While
While
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
Function
Function
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:100
SendMail
0
$Envoi du message α toutes les adresses
$
$VΘrifie que la liste des adresses n'est pas vide
#If.IF<#m_ListAddress.GetCount<>, "=", "0">
$Affiche un message d'erreur
#MessageBox.Open<"Error", "No Address !", "OK", "EXCLAMATION">
$Quitte l'ΘvΘnement car il n'y a pas d'adresse
#General.Return<"">
#If.ELSE<>
#If.ENDIF<>
$Ouvre le fichier INI pour les paramΦtres
#m_Ini.Open<#System.GetProgramFolder<>&"settings.ini">
$Change la valeur i en -1
#i.Set<"-1">
$Envoie le message α chaque adresse avec une boucle While o∙ i est l'index de l'adresse concernΘe
#While.WHILE<#i.AddOne<>, "<", #m_ListAddress.GetCount<>>
$Envoie l'email en rΘcupΘrant les paramΦtres du fichier INI, le sujet et le message
#If.IF<#m_Network.SendMail<#m_Ini.GetValue<"OPTIONS", "DOMAIN">, #m_Ini.GetValue<"OPTIONS", "EMAIL">, #m_ListAddress.GetTextAt<#i.Get<>>, #m_EditSubject.GetText<>, #m_RichEdit.GetText<>>, "=", "0">
$L'email n'a pu Ωtre envoyΘ α cause d'une erreur et il faut quitter l'ΘvΘnement
$sans oublier de fermer le fichier INI
#m_Ini.Close<>
$Affiche un message d'erreur
#MessageBox.Open<"Error", "Couldn't send messages.", "OK", "EXCLAMATION">
$Quitte
#General.Return<"">
#If.ELSE<>
#If.ENDIF<>
$VΘrifie si l'utilisateur appuye sur la touche Echap
#If.IF<#Keyboard.IsKeyDown<"ESCAPE">, "=", "1">
$Quitte l'ΘvΘnement et ferme le fichier INI
#m_Ini.Close<>
#General.Return<"">
#If.ELSE<>
#If.ENDIF<>
#While.ENDWHILE<>
$Ferme le fichier INI
#m_Ini.Close<>
$Affiche un message pour indiquer que les messages ont bien ΘtΘ envoyΘs
#MessageBox.Open<"Success", "Messages sent.", "OK", "EXCLAMATION">
END
LoadAddress
0
$Charge toutes les adresses depuis un fichier texte
$
$Ouvre un selecteur de fichier pour choisir le fichier adresse
#If.IF<#m_Selector.OpenDialog<"", "Text Files|*.txt|All Files|*.*||", "NONE">, "=", "0">
$L'utilisateur n'a pas choisi de fichier donc il faut quitter l'ΘvΘnement
#General.Return<"">
#If.ELSE<>
#If.ENDIF<>
$Essaye d'ouvrir le fichier choisi en lecture seule
#If.IF<#m_File.Open<#m_Selector.GetPathName<"0">, "READ">, "=", "0">
$Le fichier n'a pu Ωtre ouvert donc il faut quitter l'ΘvΘnement
#General.Return<"">
#If.ELSE<>
#If.ENDIF<>
$Efface la liste des adresses
#m_ListAddress.Reset<>
$Lit le fichier tant que la position actuelle n'est pas situΘe α la fin du fichier
#While.WHILE<#m_File.GetPos<>, "<", #m_File.Length<>>
$RΘcupΦre la ligne suivante sans le retour chariot
#str.Set<#m_File.ReadWord<#General.GetChar<"13">>>
$Lit le caractΦre suivant qui est le caractΦre 10 car un retour chariot comporte deux octets
#m_File.ReadByte<>
$Ajoute la ligne lue dans la liste des adresses
#m_ListAddress.AddString<#str.Get<>>
#While.ENDWHILE<>
$Ferme le fichier m_File (trΦs important pour le rendre accessible par la suite)
#m_File.Close<>
END
LoadMessage
0
$Charge un message depuis un fichier Texte
$
$Ouvre un selecteur de fichier pour l'utilisateur
#If.IF<#m_Selector.OpenDialog<"", "Text Files|*.txt|All Files|*.*||", "NONE">, "=", "0">
$L'utilisateur n'a pas choisi de fichier donc il faut quitter l'ΘvΘnement
#General.Return<"">
#If.ELSE<>
#If.ENDIF<>
$Efface le contenu du contr⌠le
#m_RichEdit.SetText<"">
$Ouvre le fichier choisi un peu plus haut
#m_File.Open<#m_Selector.GetPathName<"0">, "READ">
$lit la premiΦre ligne du fichier
#str.Set<#m_File.ReadWord<#General.GetChar<"13">>>
$Lit le caractere suivant (10)
#m_File.ReadByte<>
$Change le texte de m_EditSubject avec le texte lu
#m_EditSubject.SetText<#str.Get<>>
$Lit le fichier tant que la position actuelle n'est pas situΘe α la fin du fichier
#While.WHILE<#m_File.GetPos<>, "<", #m_File.Length<>>
$RΘcupΦre la ligne suivante sans le retour chariot
#str.Set<#m_File.ReadWord<#General.GetChar<"10">>>
$Ajoute la ligne lue au contr⌠le sans oublier de rajouter le caractΦre 10
#m_RichEdit.SetText<#m_RichEdit.GetText<>str.Get<>General.GetChar<"10">>
#While.ENDWHILE<>
$Ferme le fichier m_File (trΦs important pour le rendre accessible par la suite)
#m_File.Close<>
END
SaveMessage
0
$Sauve le message actuel vers un fichier
$
$Ouvre un selecteur de fichier
#If.IF<#m_Selector.SaveDialog<"", "txt", "Text Files|*.txt||", "NONE">, "=", "0">
$L'utilisateur n'a pas choisi de fichier donc il faut quitter l'ΘvΘnement
#General.Return<"">
#If.ELSE<>
#If.ENDIF<>
$Ouvre le fichier choisi par l'utilisateur en Θcriture
#m_File.Open<#m_Selector.GetPathName<"0">, "WRITE">
$Ecrit le sujet dans le fichier
#m_File.Write<#m_EditSubject.GetText<>>
$Ajoute le retour chariot constituΘ de 2 caractΦres (13 et 10)
#m_File.Write<#General.GetChar<"13">General.GetChar<"10">>
$Ecrit le message complet
#m_File.Write<#m_RichEdit.GetText<>>
$Ferme le fichier m_File (trΦs important pour le rendre accessible par la suite)
#m_File.Close<>
END
zzFunc006
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc007
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
Options
0
$Ouvre la boite de dialogue OPTION et la centre grace aux valeurs -1 et -1
#MAIN.OpenModalWindow<"OPTION", "-1", "-1">
END
zzFunc008
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc009
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc010
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc011
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc012
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc013
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc014
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc015
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc016
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc017
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc018
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc019
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc020
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc021
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc022
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc023
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc024
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc025
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc026
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc027
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc028
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc029
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc030
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc031
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc032
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc033
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc034
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc035
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc036
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc037
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc038
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc039
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc040
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc041
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc042
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc043
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc044
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc045
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc046
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc047
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc048
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc049
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc050
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc051
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc052
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc053
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc054
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc055
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc056
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc057
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc058
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc059
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc060
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc061
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc062
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc063
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc064
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc065
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc066
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc067
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc068
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc069
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc070
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc071
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc072
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc073
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc074
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc075
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc076
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc077
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc078
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc079
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc080
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc081
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc082
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc083
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc084
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc085
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc086
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc087
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc088
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc089
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc090
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc091
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc092
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc093
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc094
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc095
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc096
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc097
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc098
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc099
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc100
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
MAIN
Dialog
Mailing List Sender
0,0,520,422
WS_CHILD,WS_VISIBLE,WS_MINIMIZEBOX,WS_MAXIMIZEBOX,WS_SYSMENU,1,
0
192,192,192
EVENTS:17
OnClose
0
$Object Type : Dialog
$Event Name : OnClose
END
OnDragFile
0
$Object Type : Dialog
$Event Name : OnDragFile
$Parameter 0 : Number of files
$Parameter 1 : Pathname 1
$Parameter 2 : Pathname 2...
$
END
OnDraw
0
$Object Type : Dialog
$Event Name : OnDraw
END
OnHScroll
0
$Object Type : Dialog
$Event Name : OnHScroll
$Parameter 0 : Previous Position
$Parameter 1 : New Position
$Parameter 2 : Variation
END
OnLButtonDbClk
0
$Object Type : Dialog
$Event Name : OnLButtonDbClk
END
OnLButtonDown
0
$Object Type : Dialog
$Event Name : OnLButtonDown
END
OnLButtonUp
0
$Object Type : Dialog
$Event Name : OnLButtonUp
END
OnMButtonDbClk
0
$Object Type : Dialog
$Event Name : OnMButtonDbClk
END
OnMButtonDown
0
$Object Type : Dialog
$Event Name : OnMButtonDown
END
OnMButtonUp
0
$Object Type : Dialog
$Event Name : OnMButtonUp
END
OnMove
0
$Object Type : Dialog
$Event Name : OnMove
END
OnRButtonDbClk
0
$Object Type : Dialog
$Event Name : OnRButtonDbClk
END
OnRButtonDown
0
$Object Type : Dialog
$Event Name : OnRButtonDown
END
OnRButtonUp
0
$Object Type : Dialog
$Event Name : OnRButtonUp
END
OnSize
0
$Object Type : Dialog
$Event Name : OnSize
END
OnStart
0
$Object Type : Dialog
$Event Name : OnStart
$
$Menu
$Ajoute tous les items du menu m_MenuFile
#m_MenuFile.AddItem<"LoadAddress">
#m_MenuFile.AddItem<"LoadMessage">
#m_MenuFile.AddItem<"SaveMessage">
#m_MenuFile.AddItem<"Options">
$Ajoute le menu m_MenuFile dans le menu m_Menu qui est le menu principal
#m_Menu.AddMenu<#m_MenuFile.GetObjectID<>, "File">
$Active le menu principal pour qu'il puisse s'afficher dans la fenΩtre
#m_Menu.Activate<>
$
$Barre d'outils
$Ajoute un bouton en rΘcupΘrant l'image des ressources et en attribuant une couleur transparente (255,0,0)
#m_ToolBar.AddButton<"image/send.bmp", #General.GetRGB<"255", "0", "0">>
$Change le texte du tooltip (0 pour l'index du bouton)
#m_ToolBar.SetTipText<"0", "Send Now">
$Active la gestion des tooltips
#m_ToolBar.ActivateTip<"1">
$
$FenΩtre
$SpΘcifie la taille minimale de la fenΩtre en rΘcupΘrant la taille actuelle
#MAIN.SetMinSize<#MAIN.GetWidth<>, #MAIN.GetHeight<>>
END
OnVScroll
0
$Object Type : Dialog
$Event Name : OnVScroll
$Parameter 0 : Previous Position
$Parameter 1 : New Position
$Parameter 2 : Variation
END
Disk
Disk
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
General
General
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
Keyboard
Keyboard
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:3
OnDlgKeyDown
0
$Object Type : Keyboard
$Event Name : OnDlgKeyDown
$Parameter 0 : Key Pressed
END
OnKeyDown
0
$Object Type : Keyboard
$Event Name : OnKeyDown
$Parameter 0 : Key Pressed
END
OnKeyUp
0
$Object Type : Keyboard
$Event Name : OnKeyUp
$Parameter 0 : Key Pressed
END
Math
Math
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
MessageBox
MessageBox
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
Mouse
Mouse
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:2
OnMove
0
$Object Type : Mouse
$Event Name : OnMove
END
OnWheel
0
$Object Type : Mouse
$Event Name : OnWheel
$Parameter 0 : -1 if move down and 1 if move up
END
System
System
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
Timer
Timer
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:1
OnTimer
0
$Object Type : Timer
$Event Name : OnTimer
$Parameter 0 : ID of the timer event
END
m_MenuFile
Menu
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:1
OnSelect
0
$Object Type : Menu
$Event Name : OnSelect
$Parameter 0 : Index of the selected item
$
$RΘcupΦre l'index de l'item sΘlectionnΘ avec #General.GetParam<"0">
$RΘcupΦre le texte correspondant α l'index dans le menu avec #m_MenuFile.GetText<...>
$Appelle la fonction portant le mΩme nom avec #Function.Call<"", ...>
#Function.Call<"", #m_MenuFile.GetText<#General.GetParam<"0">>>
END
m_Menu
Menu
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:1
OnSelect
0
$Object Type : Menu
$Event Name : OnSelect
$Parameter 0 : Index of the selected item
END
str
LocalString
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
m_RichEdit
RichEdit
35,274,449,121
WS_CHILD,WS_VISIBLE,ES_MULTILINE,WS_HSCROLL,ES_AUTOHSCROLL,WS_VSCROLL,ES_AUTOVSCROLL,ES_WANTRETURN,WS_BORDER,
15
192,192,192
EVENTS:16
OnChange
0
$Object Type : RichEdit
$Event Name : OnChange
END
OnHScroll
0
$Object Type : RichEdit
$Event Name : OnHScroll
END
OnKeyDown
0
$Object Type : RichEdit
$Event Name : OnKeyDown
$Parameter 0 : Key Pressed
END
OnKeyUp
0
$Object Type : RichEdit
$Event Name : OnKeyUp
$Parameter 0 : Key Pressed
END
OnKillFocus
0
$Object Type : RichEdit
$Event Name : OnKillFocus
END
OnLButtonDbClk
0
$Object Type : RichEdit
$Event Name : OnLButtonDbClk
END
OnLButtonDown
0
$Object Type : RichEdit
$Event Name : OnLButtonDown
END
OnLButtonUp
0
$Object Type : RichEdit
$Event Name : OnLButtonUp
END
OnMButtonDbClk
0
$Object Type : RichEdit
$Event Name : OnMButtonDbClk
END
OnMButtonDown
0
$Object Type : RichEdit
$Event Name : OnMButtonDown
END
OnMButtonUp
0
$Object Type : RichEdit
$Event Name : OnMButtonUp
END
OnRButtonDbClk
0
$Object Type : RichEdit
$Event Name : OnRButtonDbClk
END
OnRButtonDown
0
$Object Type : RichEdit
$Event Name : OnRButtonDown
END
OnRButtonUp
0
$Object Type : RichEdit
$Event Name : OnRButtonUp
END
OnSetFocus
0
$Object Type : RichEdit
$Event Name : OnSetFocus
END
OnVScroll
0
$Object Type : RichEdit
$Event Name : OnVScroll
END
m_Group
Group
Address
16,37,489,178
WS_CHILD,WS_VISIBLE,
12
192,192,192
EVENTS:0
m_ListAddress
List
26,60,467,146
WS_CHILD,WS_VISIBLE,WS_BORDER,LBS_SORT,WS_VSCROLL,LBS_NOINTEGRALHEIGHT,LBS_EXTENDEDSEL,
12
192,192,192
EVENTS:4
OnDoubleClick
0
$Object Type : List
$Event Name : OnDoubleClick
END
OnKillFocus
0
$Object Type : List
$Event Name : OnKillFocus
END
OnSelChange
0
$Object Type : List
$Event Name : OnSelChange
END
OnSetFocus
0
$Object Type : List
$Event Name : OnSetFocus
END
m_Group2
Group
Message to Send
16,222,489,188
WS_CHILD,WS_VISIBLE,
15
192,192,192
EVENTS:0
m_Selector
Selector
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
m_ToolBar
ToolBar
0,0,520,24
WS_CHILD,WS_VISIBLE,WS_BORDER,
12
192,192,192
EVENTS:1
OnSelect
0
$Object Type : ToolBar
$Event Name : OnSelect
$Parameter 0 : Index of the icon pushed.
$
$RΘcupΦre l'index du bouton sΘlectionnΘ avec #General.GetParam<"0">
$RΘcupΦre le texte correspondant α l'index avec #m_ToolBar.GetTipText<...>
$Stocke le texte dans la variable #str
#str.Set<#m_ToolBar.GetTipText<#General.GetParam<"0">>>
$Compare la valeur #str au texte "Send Now"
#If.IF<#str.Get<>, "=", "Send Now">
$Appelle la fonction "SendMail"
#Function.Call<"", "SendMail">
#If.ELSE<>
#If.ENDIF<>
END
m_File
File
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
i
LocalNumber
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
m_Network
Network
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
m_EditSubject
Edit
106,246,377,22
WS_CHILD,WS_VISIBLE,ES_AUTOHSCROLL,WS_BORDER,
12
192,192,192
EVENTS:5
OnChange
0
$Object Type : Edit
$Event Name : OnChange
END
OnHScroll
0
$Object Type : Edit
$Event Name : OnHScroll
END
OnKillFocus
0
$Object Type : Edit
$Event Name : OnKillFocus
END
OnSetFocus
0
$Object Type : Edit
$Event Name : OnSetFocus
END
OnVScroll
0
$Object Type : Edit
$Event Name : OnVScroll
END
m_TextSubject
Text
Subject
37,249,55,18
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
m_Ini
Ini
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
OPTION:18
zzFunc001,zzFunc002,zzFunc003,zzFunc004,zzFunc005,zzFunc006,zzFunc007,zzFunc008,zzFunc009,zzFunc010,zzFunc011,zzFunc012,zzFunc013,zzFunc014,zzFunc015,zzFunc016,zzFunc017,zzFunc018,zzFunc019,zzFunc020,zzFunc021,zzFunc022,zzFunc023,zzFunc024,zzFunc025,zzFunc026,zzFunc027,zzFunc028,zzFunc029,zzFunc030,zzFunc031,zzFunc032,zzFunc033,zzFunc034,zzFunc035,zzFunc036,zzFunc037,zzFunc038,zzFunc039,zzFunc040,zzFunc041,zzFunc042,zzFunc043,zzFunc044,zzFunc045,zzFunc046,zzFunc047,zzFunc048,zzFunc049,zzFunc050,zzFunc051,zzFunc052,zzFunc053,zzFunc054,zzFunc055,zzFunc056,zzFunc057,zzFunc058,zzFunc059,zzFunc060,zzFunc061,zzFunc062,zzFunc063,zzFunc064,zzFunc065,zzFunc066,zzFunc067,zzFunc068,zzFunc069,zzFunc070,zzFunc071,zzFunc072,zzFunc073,zzFunc074,zzFunc075,zzFunc076,zzFunc077,zzFunc078,zzFunc079,zzFunc080,zzFunc081,zzFunc082,zzFunc083,zzFunc084,zzFunc085,zzFunc086,zzFunc087,zzFunc088,zzFunc089,zzFunc090,zzFunc091,zzFunc092,zzFunc093,zzFunc094,zzFunc095,zzFunc096,zzFunc097,zzFunc098,zzFunc099,zzFunc100,
If
If
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
While
While
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
Function
Function
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:100
zzFunc001
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc002
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc003
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc004
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc005
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc006
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc007
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc008
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc009
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc010
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc011
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc012
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc013
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc014
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc015
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc016
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc017
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc018
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc019
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc020
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc021
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc022
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc023
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc024
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc025
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc026
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc027
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc028
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc029
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc030
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc031
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc032
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc033
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc034
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc035
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc036
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc037
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc038
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc039
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc040
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc041
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc042
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc043
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc044
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc045
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc046
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc047
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc048
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc049
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc050
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc051
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc052
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc053
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc054
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc055
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc056
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc057
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc058
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc059
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc060
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc061
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc062
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc063
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc064
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc065
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc066
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc067
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc068
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc069
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc070
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc071
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc072
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc073
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc074
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc075
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc076
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc077
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc078
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc079
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc080
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc081
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc082
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc083
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc084
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc085
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc086
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc087
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc088
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc089
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc090
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc091
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc092
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc093
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc094
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc095
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc096
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc097
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc098
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc099
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
zzFunc100
0
$To run this function use Call<> function
$You can change its name from the tree control.
END
OPTION
Dialog
Options
0,0,393,122
WS_CHILD,WS_VISIBLE,WS_SYSMENU,2,
0
192,192,192
EVENTS:17
OnClose
0
$Object Type : Dialog
$Event Name : OnClose
END
OnDragFile
0
$Object Type : Dialog
$Event Name : OnDragFile
$Parameter 0 : Number of files
$Parameter 1 : Pathname 1
$Parameter 2 : Pathname 2...
END
OnDraw
0
$Object Type : Dialog
$Event Name : OnDraw
END
OnHScroll
0
$Object Type : Dialog
$Event Name : OnHScroll
$Parameter 0 : Previous Position
$Parameter 1 : New Position
$Parameter 2 : Variation
END
OnLButtonDbClk
0
$Object Type : Dialog
$Event Name : OnLButtonDbClk
END
OnLButtonDown
0
$Object Type : Dialog
$Event Name : OnLButtonDown
END
OnLButtonUp
0
$Object Type : Dialog
$Event Name : OnLButtonUp
END
OnMButtonDbClk
0
$Object Type : Dialog
$Event Name : OnMButtonDbClk
END
OnMButtonDown
0
$Object Type : Dialog
$Event Name : OnMButtonDown
END
OnMButtonUp
0
$Object Type : Dialog
$Event Name : OnMButtonUp
END
OnMove
0
$Object Type : Dialog
$Event Name : OnMove
END
OnRButtonDbClk
0
$Object Type : Dialog
$Event Name : OnRButtonDbClk
END
OnRButtonDown
0
$Object Type : Dialog
$Event Name : OnRButtonDown
END
OnRButtonUp
0
$Object Type : Dialog
$Event Name : OnRButtonUp
END
OnSize
0
$Object Type : Dialog
$Event Name : OnSize
END
OnStart
0
$Object Type : Dialog
$Event Name : OnStart
$
$Charge les valeurs du fichier INI
$
$Ouvre le fichier INI se trouvant dans le mΩme rΘpertoire que celui de l'application
#m_Ini.Open<#System.GetProgramFolder<>&"settings.ini">
$Change le texte du contr⌠le m_EditDomain en rΘcupΘrant la valeur α partir du fichier INI
#m_EditDomain.SetText<#m_Ini.GetValue<"OPTIONS", "DOMAIN">>
$Change le texte du contr⌠le m_EditEmail en rΘcupΘrant la valeur α partir du fichier INI
#m_EditEmail.SetText<#m_Ini.GetValue<"OPTIONS", "EMAIL">>
$Ferme le fichier INI (trΦs important)
#m_Ini.Close<>
END
OnVScroll
0
$Object Type : Dialog
$Event Name : OnVScroll
$Parameter 0 : Previous Position
$Parameter 1 : New Position
$Parameter 2 : Variation
END
Disk
Disk
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
General
General
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
Keyboard
Keyboard
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:3
OnDlgKeyDown
0
$Object Type : Keyboard
$Event Name : OnDlgKeyDown
$Parameter 0 : Key Pressed
END
OnKeyDown
0
$Object Type : Keyboard
$Event Name : OnKeyDown
$Parameter 0 : Key Pressed
END
OnKeyUp
0
$Object Type : Keyboard
$Event Name : OnKeyUp
$Parameter 0 : Key Pressed
END
Math
Math
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
MessageBox
MessageBox
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
Mouse
Mouse
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:2
OnMove
0
$Object Type : Mouse
$Event Name : OnMove
END
OnWheel
0
$Object Type : Mouse
$Event Name : OnWheel
$Parameter 0 : -1 if move down and 1 if move up
END
System
System
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
Timer
Timer
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:1
OnTimer
0
$Object Type : Timer
$Event Name : OnTimer
$Parameter 0 : ID of the timer event
END
m_EditDomain
Edit
127,19,256,22
WS_CHILD,WS_VISIBLE,ES_AUTOHSCROLL,WS_BORDER,
0
192,192,192
EVENTS:5
OnChange
0
$Object Type : Edit
$Event Name : OnChange
END
OnHScroll
0
$Object Type : Edit
$Event Name : OnHScroll
END
OnKillFocus
0
$Object Type : Edit
$Event Name : OnKillFocus
END
OnSetFocus
0
$Object Type : Edit
$Event Name : OnSetFocus
END
OnVScroll
0
$Object Type : Edit
$Event Name : OnVScroll
END
m_TextDomain
Text
SMTP address :
23,24,97,22
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
m_EditEmail
Edit
127,54,256,22
WS_CHILD,WS_VISIBLE,ES_AUTOHSCROLL,WS_BORDER,
0
192,192,192
EVENTS:5
OnChange
0
$Object Type : Edit
$Event Name : OnChange
END
OnHScroll
0
$Object Type : Edit
$Event Name : OnHScroll
END
OnKillFocus
0
$Object Type : Edit
$Event Name : OnKillFocus
END
OnSetFocus
0
$Object Type : Edit
$Event Name : OnSetFocus
END
OnVScroll
0
$Object Type : Edit
$Event Name : OnVScroll
END
m_TextEmail
Text
Your email :
23,56,87,22
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
m_Ini
Ini
New Object
10,10,150,150
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:0
m_ButtonOK
ButtonFlat
OK
141,89,111,25
WS_CHILD,WS_VISIBLE,
0
192,192,192
EVENTS:4
OnClick
0
$Object Type : Button
$Event Name : OnClick
$
$Sauve les valeurs modifiΘes dans le fichier INI
$
$Ouvre le fichier INI se trouvant dans le mΩme rΘpertoire que celui de l'application
#m_Ini.Open<#System.GetProgramFolder<>&"settings.ini">
$Sauve le texte du contr⌠le m_EditDomain dans le fichier INI
#m_Ini.SetValue<"OPTIONS", "DOMAIN", #m_EditDomain.GetText<>>
$Sauve le texte du contr⌠le m_EditDomain dans le fichier INI
#m_Ini.SetValue<"OPTIONS", "EMAIL", #m_EditEmail.GetText<>>
$Ferme le fichier INI (trΦs important)
#m_Ini.Close<>
$Ferme Θgalement la boite de dialogue
#OPTION.CloseDialog<>
END
OnMouseMove
0
$Object Type : ButtonFlat
$Event Name : OnMouseMove
END
OnSelect
0
$Object Type : ButtonFlat
$Event Name : OnSelect
END
OnUnselect
0
$Object Type : ButtonFlat
$Event Name : OnUnselect
END